   "Print info about topic, using rostopic info"
   (interactive (list (let ((word (current-word)))
                        (ros-completing-read-topic
-                        (if word
-                            (format "Enter topic name (default %s): " word)
-                          "Enter topic name: ")
+                        "Enter topic name"
                         word))))
   (let* ((topic-full-name (if (string-match "^/" topic) topic (concat "/" topic)))
          (buffer-name (format "*rostopic-info:%s" topic))

(defun view-ros-service (service)
  "Open definition of a ros service in view mode.  If used interactively, tab completion will work."
  (interactive (list (ros-completing-read-service
                      (if (current-word t t)
                          (format "Enter service name (default %s): " (current-word t t))
                        "Enter service name: ")
                      (current-word t t))))
  (let ((max-mini-window-height))
    (shell-command (format "rossrv show %s" service))))

  (unless ros-actions
    (cache-ros-action-locations))
  (let* ((ros-actions-list (map 'list 'identity ros-actions))
         (result (funcall ros-completion-function
                          (concatenate 'string prompt
                                       (if (member default ros-actions-list)
                                           (format " (default %s): " default)
                                         ": "))
                          (map 'list (lambda (m pkg)
                                       (if (> (count m ros-actions-list :test 'equal) 1)
                                           (format "%s (%s)" m pkg)
