fix exception when deleting project

Metaxal · Sep 30, 2017 · c47a6e9 · c47a6e9
1 parent 53612e5
commit c47a6e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mred-designer/preview-widgets.rkt b/mred-designer/preview-widgets.rkt
@@ -33,7 +33,7 @@
 
 (define/provide (set-current-mred-id mid)
   (debug-printf "set-current-mred-id:~a\n" mid)
-  (debug-printf "current widget set:~a\n" (send mid get-id))
+  (debug-printf "current widget set:~a\n" (and mid (send mid get-id)))
   (set! current-mred-id mid))
 
 ;;; Returns a duplicate of the given widget with all its properties and id.