Index: openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl	12 Jan 2006 14:55:26 -0000	1.2
+++ openacs-4/packages/imsld/tcl/imsld-callback-procs.tcl	2 Feb 2006 13:49:44 -0000	1.3
@@ -27,6 +27,8 @@
     @author Luis de la Fuente Valent�n (lfuente@it.uc3m.es)
 } {
 
-    set resource_id [imsld::get_resource_from_object -object_id $object_id]
-    imsld::finish_resource -resource_id $resource_id
+    if {[db_0or1row belongs_to_imsld {} ] } {
+        set resource_id [imsld::get_resource_from_object -object_id $object_id]
+        imsld::finish_resource -resource_id $resource_id
+    }
 }