Index: openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl	7 Aug 2017 23:48:30 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/install-check-procs.tcl	3 Sep 2024 15:37:54 -0000	1.7
@@ -1,13 +1,20 @@
+::xo::library doc {
+
+  Callback proc for operations before and after installs.
+
+  @author Gustaf Neumann (neumann@wu-wien.ac.at)
+}
+
 namespace eval ::xotcl-core {
 
   ad_proc -private ::xotcl-core::before-install {} {
-  
-    Callback for checking whether xotcl is installed for OpenACS
-    
+
+    Callback for checking whether XOTcl is installed for OpenACS
+
     @author Gustaf Neumann (neumann@wu-wien.ac.at)
   } {
     ns_log notice "-- before-install callback"
-    if {[info commands ::xotcl::Class] eq ""} {
+    if {![nsf::is object ::xotcl::Class]} {
       error " XOTcl does not appear to be installed on your system!\n\
      Please follow the install instructions on http://www.openacs.org/xowiki/xotcl-core"
     } elseif {$::xotcl::version < 1.5} {
@@ -17,14 +24,14 @@
       ns_log notice "XOTcl $::xotcl::version$::xotcl::patchlevel is installed on your system."
     }
   }
-  
+
   ad_proc -private ::xotcl-core::after-upgrade {
     {-from_version_name:required}
     {-to_version_name:required}
   } {
-    
+
     Callback for upgrading
-    
+
     @author Gustaf Neumann (neumann@wu-wien.ac.at)
   } {
     ns_log notice "-- UPGRADE $from_version_name -> $to_version_name"
@@ -34,11 +41,11 @@
       ns_log notice "-- upgrading to $v"
       set dir [acs_package_root_dir xotcl-core]
       foreach file {
-        tcl/05-doc-procs.tcl 
+        tcl/05-doc-procs.tcl
         tcl/10-recreation-procs.tcl-old
-        tcl/thread_mod-procs.tcl 
+        tcl/thread_mod-procs.tcl
       } {
-        if {[file exists $dir/$file]} {
+        if {[ad_file exists $dir/$file]} {
           ns_log notice "Deleting obsolete file $dir/$file"
           file delete -- $dir/$file
         }