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.2 -r1.3
--- openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	9 Sep 2013 17:34:17 -0000	1.2
+++ openacs-4/packages/schema-browser/tcl/schema-browser-procs-oracle.tcl	16 Sep 2013 09:54:29 -0000	1.3
@@ -364,7 +364,7 @@
 	}
 	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 [util_convert_plaintext_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"]"