buggfixes of applicable structs

diff --git a/modules/oop/pf-objects.scm b/modules/oop/pf-objects.scm
index 50ea9836ba3ffabe4eac400214bb61df7af9b637..75304dba5219e22f7d415889683d40ef4832c11a 100644 (file)
--- a/modules/oop/pf-objects.scm
+++ b/modules/oop/pf-objects.scm
@@ -177,7 +177,7 @@ explicitly tell it to not update etc.
   (define-syntax-rule (mref- x key l)
     (let ((xx x))
       (let ((res (mrefx- xx key l)))
-        (if (procedure? res)
+        (if (and (not (struct? res)) (procedure? res))
             (lambda z
               (apply res xx z))
             res)))))