diff --git a/src/main.c b/src/main.c
index c0dd121..84aa146 100644
--- a/src/main.c
+++ b/src/main.c
@@ -935,8 +935,14 @@
 
     /*
      * Call the main command loop.  This never returns.
+     * For embedded MzScheme the main_loop will be called by Scheme
+     * for proper stack tracking
      */
+#ifndef FEAT_MZSCHEME
     main_loop(FALSE, FALSE);
+#else
+    mzscheme_main();
+#endif
 
     return 0;
 }