diff -aur alterator-printers-4.2/ui/printers_smb.scm alterator-printers-4.2.avm/ui/printers_smb.scm
--- alterator-printers-4.2/ui/printers_smb.scm	2006-02-02 16:46:38 +0300
+++ alterator-printers-4.2.avm/ui/printers_smb.scm	2006-03-08 19:34:53 +0300
@@ -82,9 +82,11 @@
               (start (string-skip cutted #\space)))
                    (substring cutted start (string-length cutted)))))
 
+(define (model-button-name)
+  (or (cond-cadr (cell-ref printer-model)) (_ "Select model...")))
 
 (hbox (layout-policy 100 20)
-      (document:id model-button (button (or (cond-cadr (cell-ref printer-model)) (_ "Select model..."))
+      (document:id model-button (button (model-button-name)
                                         (layout-policy 50 -1)
                                         (on-click
                                          (let* ((vendor (cond-car (cell-ref printer-model)))
@@ -95,7 +97,7 @@
                                                                          'auto-model model)))
                                              (and (pair? result)
                                                   (cell-set! printer-model result))))
-                                         (model-button text (cond-cadr (cell-ref printer-model)))))))
+                                         (model-button text (model-button-name))))))
 
 (define (made-user-password)
   (string-join (delete ""