Index: openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl,v
diff -u -N -r1.49 -r1.50
--- openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl	21 Oct 2017 16:00:13 -0000	1.49
+++ openacs-4/packages/xowiki/tcl/adp-generator-procs.tcl	24 Dec 2017 12:51:38 -0000	1.50
@@ -107,12 +107,14 @@
     #
     if {![file exists $adpFilename]
         || [file mtime [info script]] > [file mtime $adpFilename]} {
-      if {[catch {set f [open $adpFilename w]} errorMsg]} {
+      try {
+        set f [open $adpFilename w]
+      } on error {errorMsg} {
         :log "Warning: cannot overwrite ADP $adpFilename, ignoring possible changes"
-      } else {
+      } on ok {r} {
         ::puts -nonewline $f [:generate]
         close $f
-        :log "Notice: create ADP $adpFilename"
+        :log "Notice: created ADP $adpFilename"
       }
     }
   }