Index: openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql	30 Jun 2015 21:14:52 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/security-procs-postgresql.xql	7 Aug 2017 23:47:59 -0000	1.13
@@ -17,11 +17,8 @@
 
 <fullquery name="ad_set_client_property.prop_upsert">      
   <querytext>
-      begin
-         PERFORM sec_session_property__upsert(:session_id, :module, :name, :value, :secure, :last_hit);
-	 return 1;
-      end;
-      </querytext>
+    select sec_session_property__upsert(:session_id, :module, :name, :value, :secure, :last_hit) from dual
+  </querytext>
 </fullquery>
  
 
@@ -38,20 +35,6 @@
 </fullquery>
 
  
-<fullquery name="ad_maybe_redirect_for_registration.sql_test_1">      
-      <querytext>
-      select test_sql('select 1  where 1=[DoubleApos $value]') 
-      </querytext>
-</fullquery>
-
- 
-<fullquery name="ad_maybe_redirect_for_registration.sql_test_2">      
-      <querytext>
-      select test_sql('select 1  where 1=[DoubleApos "'$value'"]') 
-      </querytext>
-</fullquery>
-
- 
 <fullquery name="populate_secret_tokens_db.insert_random_token">      
       <querytext>