diff --git a/src/commands1.el b/src/commands1.el
index 922efa6424f7de73015b6c9a6242a1ef1f548e33..b69e5c9cae9cbe09adc3c62dad6007224e0ec323 100644
--- a/src/commands1.el
+++ b/src/commands1.el
@@ -1762,7 +1762,12 @@ converted so that the search is case insensitive."
   (interactive)
   (let ((conf-stat (lyskom-read-conf-stat 
 		    (lyskom-get-string 'name-to-be-changed)
-		    '(all) nil nil t)))
+		    '(all)
+                    nil
+                    (cons
+                     (conf-stat->name (blocking-do 'get-conf-stat lyskom-pers-no))
+                     0)
+                    t)))
     (if (null conf-stat)
 	(lyskom-insert-string 'no-such-conf-or-pers)
       (if (string-match "^\\(.*\\)(\\(.*\\))\\(.*\\)$" (conf-stat->name conf-stat))