:bug: Fix gack

diff --git a/src/vm/vm.c b/src/vm/vm.c
index ebe1f586e69340195baa250d183b6a4214986af6..248d56e0c55d846897c0380d2df108a2336b826e 100644 (file)
--- a/src/vm/vm.c
+++ b/src/vm/vm.c
@@ -864,7 +864,8 @@ gackend:
     gw_out("%s\n", str);
   else
     *(M_Object*)(reg - SZ_INT)= new_string(vm->gwion->mp, shred, str);
-  mp_free2(vm->gwion->mp, strlen(str), str);
+  if(str)
+    mp_free2(vm->gwion->mp, strlen(str), str);
   DISPATCH();
 }
 gack: