Index: openacs-4/packages/xowiki/tcl/xowiki-uploader-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-uploader-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xowiki/tcl/xowiki-uploader-procs.tcl	7 Aug 2017 23:48:31 -0000	1.2
+++ openacs-4/packages/xowiki/tcl/xowiki-uploader-procs.tcl	7 Jul 2018 10:58:20 -0000	1.3
@@ -19,14 +19,24 @@
     :property tmpfile
     :property parent_object
 
-    :public method store_file {} {error "not implemented"}
+    :public method store_file {} {
+      #
+      # Abstract method.
+      #
+
+      error "not implemented"
+    }
   }
   
   nx::Class create ::xowiki::UploadFile -superclass ::xowiki::Upload {
     #
     # Class for storing files as xowiki::File instances.
     #
     :public method store_file {} {
+      #
+      # Store the file provided via instance variables by using the
+      # formfield::file implementation.
+      #
       set f [::xowiki::formfield::file new -name upload -object ${:parent_object}]
       set file_object [$f store_file \
                            -file_name ${:file_name} \