Typo in aefa370 (Add a global edit procedure...).

diff --git a/src/runtime/global.scm b/src/runtime/global.scm
index e25fc767af0570e49f40f96c62f03dee5dbec1e4..50d674824f6abdedc145f9f55eae1b0c7902836e 100644 (file)
--- a/src/runtime/global.scm
+++ b/src/runtime/global.scm
@@ -157,7 +157,7 @@ USA.
   (let ((env (let ((package (name->package '(edwin))))
               (and package (package/environment package)))))
     (if env
-       (apply (environment-lookup end 'edit) args)
+       (apply (environment-lookup env 'edit) args)
        (begin
          (with-notification
           (lambda (port) (display "Loading Edwin" port))