diff --git a/src/app-utils/options.scm b/src/app-utils/options.scm
index 50fb07c7d5..1885eca20e 100644
--- a/src/app-utils/options.scm
+++ b/src/app-utils/options.scm
@@ -314,7 +314,7 @@
   (define (budget->guid budget)
     (cond ((eq? budget #f) #f)
           ((string? budget) budget)
-          (t (gncBudgetGetGUID budget))))
+          (else (gncBudgetGetGUID budget))))
 
   (define (guid->budget budget)
     (if (string? budget)