diff --git a/core/combinators/combinators-tests.factor b/core/combinators/combinators-tests.factor
index 3a8cc23811..97de07d546 100644
--- a/core/combinators/combinators-tests.factor
+++ b/core/combinators/combinators-tests.factor
@@ -1,6 +1,6 @@
 USING: alien strings kernel math tools.test io prettyprint
 namespaces combinators words classes sequences accessors
-math.functions arrays combinators.private stack-checker ;
+math.functions arrays combinators.private ;
 IN: combinators.tests
 
 [ 3 ] [ 1 2 [ + ] call( x y -- z ) ] unit-test
@@ -320,7 +320,3 @@ DEFER: corner-case-1
 
 [ "nachos" ] [ 33 test-case-12 ] unit-test
 [ "nachos" ] [ 33 \ test-case-12 def>> call ] unit-test
-
-! Fixes #138
-[ { 3 3 } ]
-[ [ { [ ] [ ] [ ] } spread ] [ inputs ] [ outputs ] bi 2array ] unit-test
\ No newline at end of file
diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index ace9b47aa1..fc259afbaf 100644
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -66,7 +66,7 @@ SLOT: terminated?
 
 ! spread
 : spread>quot ( seq -- quot )
-    [ ] [ [ [ dip ] curry ] dip append ] reduce ;
+    [ ] [ [ dup empty? [ [ dip ] curry ] unless ] dip append ] reduce ;
 
 : spread ( objs... seq -- )
     spread>quot call ;