diff --git a/forge/forge.lisp b/forge/forge.lisp
index 7412df6..e2aa204 100644
--- a/forge/forge.lisp
+++ b/forge/forge.lisp
@@ -4,8 +4,7 @@
 
 (defpackage :scopes/forge
   (:use :common-lisp)
-  (:export #:new-forge-env #:data-stack #:exec 
-		   #:add))
+  (:export #:new-forge-env #:data-stack #:exec))
 
 (in-package :scopes/forge)
 
diff --git a/test/test-forge.lisp b/test/test-forge.lisp
index 38c3496..b693e87 100644
--- a/test/test-forge.lisp
+++ b/test/test-forge.lisp
@@ -13,8 +13,11 @@
 (defun run ()
   (let ((fe (scf:new-forge-env))
 		(tst (sct:test-suite)))
+    (test-exec tst fe)
+    ;(format t "~%fe ~a" fe)
+    (sct:result tst)))
+
+(defun test-exec (tst fe)
    (scf:exec fe '(4 2 add))
-   (sct:assert-eq tst (car (scf:data-stack fe)) 6)
-   ;(format t "~%fe ~a" fe)
-   (sct:result tst)
-  ))
+   (sct:assert-eq tst (car (scf:data-stack fe)) 6))
+
diff --git a/testing.lisp b/testing.lisp
index a3e7104..9f3a8b4 100644
--- a/testing.lisp
+++ b/testing.lisp
@@ -16,3 +16,4 @@
 
 (defmacro result (tst) 
   `(elt ,tst 0))
+