File algol68g-postgresql.patch of Package algol68g

--- a/src/a68g/postgresql.c
+++ b/src/a68g/postgresql.c
@@ -30,6 +30,9 @@
 // -3   Other error
 
 #include "a68g.h"
+#include "a68g-prelude.h"
+#include "a68g-genie.h"
+#include "a68g-transput.h"
 
 #if defined (HAVE_POSTGRESQL)
 
@@ -67,7 +70,7 @@
     exit_genie (p, A68_RUNTIME_ERROR);
   }
   STATUS (file) = INIT_MASK;
-  CHANNEL (file) = associate_channel;
+  CHANNEL (file) = common.associate_channel;
   OPENED (file) = A68_TRUE;
   OPEN_EXCLUSIVE (file) = A68_FALSE;
   READ_MOOD (file) = A68_FALSE;