Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.221 -r1.222
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Sep 2012 20:50:06 -0000	1.221
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Nov 2012 01:38:58 -0000	1.222
@@ -1363,7 +1363,7 @@
       }
   url instproc check=safe_url {value} {
     set regexp {^(https|http|ftp)://([a-zA-Z0-9_\-\.]+(:[0-9]+)?)/[a-zA-Z0-9_.%/#?=&~-]+$}
-    if {[regexp -nocase $expr $value]} {return 1}
+    if {[regexp -nocase $regexp $value]} {return 1}
     return 0
   }
   url instproc initialize {} {