=== modified file 'src/app-utils/options.scm'
--- src/app-utils/options.scm	2008-07-11 20:09:50 +0000
+++ src/app-utils/options.scm	2009-02-05 00:37:29 +0000
@@ -314,7 +314,7 @@
   (define (budget->guid budget)
     (cond ((eq? budget #f) #f)
           ((string? budget) budget)
-          (t (gncBudgetGetGUID budget))))
+          (#t (gncBudgetGetGUID budget))))
 
   (define (guid->budget budget)
     (if (string? budget)

