(defun python-symbol-completions1 (symbol)
  "Return a list of completions of the string SYMBOL from Python process.
The list is sorted.
Uses `python-imports' to load modules against which to complete."
  (when symbol
    (let ((completions
	   (condition-case ()
	       (car (read-from-string "(Ttk.Ttk Ttk.TtkDialog)"))
		     ;(shell-command 
		     ;(format "c:/python25/python c:/elisp/p-m/emacs.py c %s" symbol) "QQQ"))    
	     ;(error nil)
	     )))
      (sort
       ;; We can get duplicates from the above -- don't know why.
       (delete-dups completions)
       #'string<)
      )))