Index: openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl	27 Jun 2015 16:41:07 -0000	1.5
+++ openacs-4/packages/acs-admin/www/apm/version-callback-invoke.tcl	7 Aug 2017 23:47:45 -0000	1.6
@@ -9,7 +9,11 @@
     type:notnull
 }
 
-db_1row package_version_info "select pretty_name, version_name from apm_package_version_info where version_id = :version_id"
+db_1row package_version_info {
+    select pretty_name, version_name
+    from apm_package_version_info
+    where version_id = :version_id
+}
 
 set return_url [export_vars -base version-callbacks { version_id }]
 
@@ -24,8 +28,13 @@
                  [list $return_url "Tcl Callbacks"] $page_title]
 
 if { [catch $proc_value result] } {
-    global errorInfo
-    ns_log Error "Error invoking callback $proc_value: $result\n$errorInfo"
+    ns_log Error "Error invoking callback $proc_value: $result\n$::errorInfo"
 }
 
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: