Index: openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl	9 May 2018 15:33:28 -0000	1.16
+++ openacs-4/packages/acs-subsite/tcl/rel-types-procs.tcl	14 Jun 2018 09:16:48 -0000	1.17
@@ -1,5 +1,3 @@
-# /packages/mbryzek-subsite/tcl/rel-types-procs.tcl
-
 ad_library {
 
     Procs about relationships
@@ -165,17 +163,18 @@
 	}
 
 	# The following create table statement commits the transaction. If it
-	# fails, we roll back what we've done
+	# fails, we roll back what we've done.
 
 	if {$create_table_p == "t"} {
-	    if {[catch {db_exec_plsql create_table "
-		create table $table_name (
-        	   rel_id constraint $fk_constraint_name
-                   references $references_table ($references_column)
-                   constraint $pk_constraint_name primary key
-		)"} errmsg]} {
+	    if {[catch {db_exec_plsql create_table [subst {
+                create table $table_name (
+                     rel_id integer
+                            constraint $fk_constraint_name
+                            references $references_table ($references_column)
+                            constraint $pk_constraint_name primary key
+                   )}]} errmsg]} {
 
-		# Roll back our work so for
+		# Roll back our work so far
 
 		for {set i [expr {[llength $plsql_drop] - 1}]} {$i >= 0} {incr i -1} {
 		    set drop_cmd [lindex $plsql_drop $i]