Index: openacs-4/packages/acs-content-repository/tcl/image-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/image-procs.tcl,v
diff -u -r1.18.2.5 -r1.18.2.6
--- openacs-4/packages/acs-content-repository/tcl/image-procs.tcl	24 Nov 2022 14:45:54 -0000	1.18.2.5
+++ openacs-4/packages/acs-content-repository/tcl/image-procs.tcl	20 Apr 2023 13:34:18 -0000	1.18.2.6
@@ -183,7 +183,7 @@
     }
 
     catch {
-        set identify_string [exec identify $filename]
+        set identify_string [exec [image::identify_binary] $filename]
         regexp {[ ]+([0-9]+)[x]([0-9]+)[\+]*} $identify_string x width height
         set row(width) $width
         set row(height) $height