Index: openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	27 Jun 2015 20:15:21 -0000	1.4
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	30 Sep 2017 18:12:52 -0000	1.5
@@ -367,10 +367,10 @@
 	}
 	append html "\t[string tolower [ns_set get $column "column_name"]]\t [ns_set get $column "data_type"]([ns_set get $column "data_length"])"
 	if { [ns_set get $column "data_default"] != "" } {
-	    append html " DEFAULT [ad_text_to_html [ns_set get $column "data_default"]]"
+	    append html " DEFAULT [ad_text_to_html -- [ns_set get $column data_default]]"
 	}
         if { [ns_set get $column "nullable"] != "" } {
-	    append html " [ns_set get $column "nullable"]"
+	    append html " [ns_set get $column nullable]"
 	}
         set constraint_list [ns_set get $column "constraint_list"]
         foreach constraint $constraint_list {