diff --git a/forge/forge.lisp b/forge/forge.lisp
index 5d250b6..1a80be7 100644
--- a/forge/forge.lisp
+++ b/forge/forge.lisp
@@ -4,7 +4,7 @@
 
 (defpackage :scopes/forge
   (:use :common-lisp)
-  (:export #:new-forge-env #:data-stack #:exec))
+  (:export #:forge-env #:data-stack #:exec))
 
 (in-package :scopes/forge)
 
@@ -13,7 +13,7 @@
 			   :reader data-stack
 			   :accessor data-stack!)))
 
-(defun new-forge-env ()
+(defun forge-env ()
   (make-instance 'forge-env))
 
 (defun exec (fe code)
diff --git a/test/test-forge.lisp b/test/test-forge.lisp
index b693e87..2676432 100644
--- a/test/test-forge.lisp
+++ b/test/test-forge.lisp
@@ -11,7 +11,7 @@
 (in-package :scopes/test-forge)
 
 (defun run ()
-  (let ((fe (scf:new-forge-env))
+  (let ((fe (scf:forge-env))
 		(tst (sct:test-suite)))
     (test-exec tst fe)
     ;(format t "~%fe ~a" fe)