Typo.

diff --git a/src/gtk/gio.scm b/src/gtk/gio.scm
index 04ccd89d444897d8231989716051d8a8ed939e28..cd66164a39f792ab3134493535b1ffbacd821978 100644 (file)
--- a/src/gtk/gio.scm
+++ b/src/gtk/gio.scm
@@ -1145,7 +1145,7 @@ USA.
                 " "(gfile-uri gfile)
                 " "gmountop
                 " "(c-peek-cstring message)
-                " "(peek-gstrv! chooices)"\n")
+                " "(peek-gstrv! choices)"\n")
     (warn "Unimplemented" 'mount-question-callback)))
 
 (define (peek-gstrv! alien)