X-Git-Url: https://git.jsancho.org/?p=guile-irrlicht.git;a=blobdiff_plain;f=irrlicht%2Firr.scm;fp=irrlicht%2Firr.scm;h=f220cdf094b3df50a6946cc2ddbddd4075499fca;hp=2a1f78849707df5fe4d9f8a4b3d9b2b9f01c35da;hb=32d4067d4c588913bbd5ec4450f2f859af789942;hpb=79e12d94cc21232477796a4e76fc2ddb5d88f9dc

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)))