Index: openacs-4/packages/acs-content-repository/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/doc-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-content-repository/tcl/doc-procs.tcl	27 Jul 2006 01:15:52 -0000	1.6
+++ openacs-4/packages/acs-content-repository/tcl/doc-procs.tcl	10 Jan 2007 21:22:03 -0000	1.7
@@ -23,7 +23,7 @@
         regexp {[^@]*} $info_source comment
         set info(comment) $comment
         
-        if [regexp {@see (.*)} $info_source x see] {
+        if {[regexp {@see (.*)} $info_source x see]} {
             foreach s [split $see ","] {
                 # strip braces
                 regsub {\{([^\}]+)\}} $s {\1} s