*** empty log message ***

[bpt/guile.git] / module / system / vm / profile.scm

diff --git a/module/system/vm/profile.scm b/module/system/vm/profile.scm
index 1b29850..cc2760f 100644 (file)
--- a/module/system/vm/profile.scm
+++ b/module/system/vm/profile.scm
@@ -34,7 +34,7 @@
          (add-hook! (vm-enter-hook vm) profile-enter)
          (add-hook! (vm-exit-hook vm) profile-exit))
        (lambda ()
-         (let ((val (vm (objcode->program objcode))))
+         (let ((val (vm-load vm objcode)))
            (display-result vm)
            val))
        (lambda ()