 	                 "(a b |c ,  )" "(a b c)|"
 	                 "(a b| [d e]" "(a b)| [d e]"
 	                 "; Hello,| world!"  "; Hello,)| world!"
-	                 "  \"Hello,| world!\" foo" "  \"Hello,)| world!\" foo"
+	                 "(  \"Hello,| world!\" foo )" "(  \"Hello,)| world!\" foo )"
 	                 "  \"Hello,| world!" "  \"Hello,)| world!"
 	                 "foo \\|" "foo \\)|"}]
 	    #_["M-)"       :paredit-close-round-and-newline

  (:use clojure.contrib.def)
  (:use clojure.test)
  (:use paredit.parser)
  (:require clojure.contrib.pprint)
  (:require [clojure.contrib.str-utils2 :as str2])
  (:require [clojure.zip :as zip]))

  :paredit-open-round
  [cmd {:keys [text offset length] :as t}]
  (open-balanced [\( \)] t 
    (union (conj (into *real-spaces* *open-brackets*) \#) *form-macro-chars*)
    (into *extended-spaces* *close-brackets*)))
    
(defmethod paredit 
  :paredit-open-square
  [cmd {:keys [text offset length] :as t}]
  (open-balanced [\[ \]] t
    (union (into *real-spaces* *open-brackets*) *form-macro-chars*)
    (into *extended-spaces* *close-brackets*)))
    
(defmethod paredit 
  :paredit-open-curly
  [cmd {:keys [text offset length] :as t}]
  (open-balanced [\{ \}] t
    (union (conj (into *real-spaces* *open-brackets*) \#) *form-macro-chars*)
    (into *extended-spaces* *close-brackets*)))
    
(defmethod paredit 
