diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor
index 3d2963fc85..d95e8258be 100755
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@@ -1,7 +1,7 @@
 USING: arrays math parser tools.test kernel generic words
 io.streams.string namespaces classes effects source-files
 assocs sequences strings io.files definitions continuations
-sorting tuples compiler.units ;
+sorting tuples compiler.units debugger ;
 IN: temporary
 
 [
@@ -426,3 +426,7 @@ IN: temporary
 ] unit-test
 
 [ t ] [ "foo" "temporary" lookup symbol? ] unit-test
+
+[ "resource:core/parser/test/assert-depth.factor" run-file ]
+[ relative-overflow-stack { 1 2 3 } sequence= ]
+must-fail-with
diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 63d3f2e45f..97e8b18dfb 100755
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -507,7 +507,7 @@ SYMBOL: interactive-vocabs
     ] recover ;
 
 : run-file ( file -- )
-    [ [ parse-file call ] keep ] assert-depth drop ;
+    [ dup parse-file call ] assert-depth drop ;
 
 : ?run-file ( path -- )
     dup resource-exists? [ run-file ] [ drop ] if ;
diff --git a/core/parser/test/assert-depth.factor b/core/parser/test/assert-depth.factor
new file mode 100755
index 0000000000..3008dc05b6
--- /dev/null
+++ b/core/parser/test/assert-depth.factor
@@ -0,0 +1 @@
+1 2 3
diff --git a/extra/http/server/templating/templating.factor b/extra/http/server/templating/templating.factor
index f364b86524..3b0dcb8e5e 100755
--- a/extra/http/server/templating/templating.factor
+++ b/extra/http/server/templating/templating.factor
@@ -80,11 +80,10 @@ DEFER: <% delimiter
             "quiet" on
             parser-notes off
             templating-vocab use+
-            dup source-file file set ! so that reload works properly
-            [
-                ?resource-path file-contents
-                [ eval-template ] [ html-error. drop ] recover
-            ] keep
+            ! so that reload works properly
+            dup source-file file set
+            dup ?resource-path file-contents
+            [ eval-template ] [ html-error. drop ] recover
         ] with-file-vocabs
     ] assert-depth drop ;