   (setq has-single (string-match "'" string))
   (cond
     ((or (and (not has-single) (not has-double))
-	 (and has-double (not has-single)))
+         (and has-double (not has-single)))
        (concat "'" string "'"))
     ((and has-single (not has-double))
        (concat "\"" string "\""))

  (interactive)
  (if (y-or-n-p "Ok to un-checkout? ")
      (progn
	(setq pname (file-name-nondirectory (buffer-file-name)))
	(ct-shell-command-verbose (concat "ctunco " pname))
	(ct-find-curr-file-again t)
	)
      (progn
	(message "Uncheckout canceled.")
	)
    )
)


  (if have-atria
      (compile-internal
        (concat "clearmake -C gnu " target
                " |& grep -v \"clearmake: Warning: Config\"")
        "No more errors.")
      (compile-internal
        (concat "make " target) "No more errors."))
