diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index dbb3a04a09..9ef1ac658e 100755
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -517,7 +517,7 @@ TUPLE: sp-parser p1 ;
 
 M: sp-parser (compile) ( peg -- quot )
   p1>> compile-parser 1quotation '[ 
-    input-slice trim-left-slice input-from pos set @ 
+    input-slice [ blank? ] trim-left-slice input-from pos set @ 
   ] ;
 
 TUPLE: delay-parser quot ;