X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=irrlicht%2Firr.scm;h=f220cdf094b3df50a6946cc2ddbddd4075499fca;hb=7611ebfeeae5ed59751f108214ee7a00aea20b7b;hp=2a1f78849707df5fe4d9f8a4b3d9b2b9f01c35da;hpb=7aaa8f11f628e04766c229e48124fa41a9da482e;p=guile-irrlicht.git

diff --git a/irrlicht/irr.scm b/irrlicht/irr.scm
index 2a1f788..f220cdf 100644
--- a/irrlicht/irr.scm
+++ b/irrlicht/irr.scm
@@ -41,7 +41,7 @@
 
 (define-method (get-event-gui-caller (event <event>))
   (let ((SGUIEvent_Caller (get-irrlicht-proc "SGUIEvent_Caller" event)))
-    (SGUIEvent_Caller event)))
+    (remember-wrapped (SGUIEvent_Caller event))))
 
 (define-method (get-event-gui-type (event <event>))
   (let ((SGUIEvent_EventType (get-irrlicht-proc "SGUIEvent_EventType" event)))