Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	13 Jan 2003 22:51:44 -0000	1.17
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	20 Jan 2003 09:30:09 -0000	1.18
@@ -439,7 +439,7 @@
         if { [empty_string_p $package_key] } {
             set package_where_clause ""
         } else {
-            set package_where_clause "where package_key = $package_key"
+            set package_where_clause "where package_key = :package_key"
         }
         
         set i 0