Index: openacs-4/packages/acs-content-repository/tcl/publish-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs-oracle.xql,v
diff -u -r1.2 -r1.2.2.1
--- openacs-4/packages/acs-content-repository/tcl/publish-procs-oracle.xql	7 Aug 2017 23:47:47 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs-oracle.xql	13 Mar 2019 10:17:14 -0000	1.2.2.1
@@ -29,9 +29,8 @@
 
 <fullquery name="publish::write_multiple_blobs.wmb_get_blob_file">      
       <querytext>
-      
-      select [ad_decode $storage_type file "'[cr_fs_path]' || filename" content] from cr_revisions where revision_id = $revision_id
-    
+        select [expr {$storage_type eq "file" ? "'[cr_fs_path]' || filename" : "content"}]
+          from cr_revisions where revision_id = :revision_id
       </querytext>
 </fullquery>