Index: openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql	21 Oct 2002 11:39:12 -0000	1.2
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs-oracle.xql	12 Nov 2002 22:34:19 -0000	1.3
@@ -21,4 +21,17 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="lang::message::register.select_an_existing_message">
+    <querytext>
+        select message
+          from lang_messages
+         where message_key = :message_key
+           and package_key = :package_key
+           and rownum = 1
+    </querytext>
+  </fullquery>
+
 </queryset>
+
+
+