~ chicken-core (chicken-5) 23ad126f3ded161bd2a114681a2f78e3187f7eeb

commit 23ad126f3ded161bd2a114681a2f78e3187f7eeb
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Mar 30 14:38:35 2013 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Mar 30 14:38:35 2013 +0100

    qs should also escape pipe

diff --git a/utils.scm b/utils.scm
index 715219d5..94417fcc 100644
--- a/utils.scm
+++ b/utils.scm
@@ -69,7 +69,7 @@
 	  (map (lambda (c)
 		 (if (or (char-whitespace? c)
 			 (memq c '(#\# #\" #\' #\` #\´ #\~ #\& #\% #\$ #\! #\* #\;
-				   #\< #\> #\\ #\( #\) #\[ #\] #\{ #\} #\?)))
+				   #\< #\> #\\ #\( #\) #\[ #\] #\{ #\} #\? #\|)))
 		     (string #\\ c)
 		     (string c)))
 	       (string->list str)))))))