diff --git a/intl-scm/xgettext.scm b/intl-scm/xgettext.scm
index 93df3b9f05..8e70cce30e 100644
--- a/intl-scm/xgettext.scm
+++ b/intl-scm/xgettext.scm
@@ -42,8 +42,7 @@
            (symbol? (car rest))            ; starting with a symbol
            (string? (cadr rest))           ; and ending with a string
            (or (eqv? '_ (car rest))        ; and the symbol is _
-               (eqv? 'N_ (car rest))       ; or N_
-               (eqv? 'gnc:_ (car rest))))  ; or gnc:_
+               (eqv? 'N_ (car rest))))     ; or N_
       (write-string (cadr rest) out-port filename line-no)) ; then write it out
 
      ((pair? rest)                         ; otherwise, recurse
diff --git a/src/app-utils/app-utils.scm b/src/app-utils/app-utils.scm
index f7419d74b7..c00248a3b9 100644
--- a/src/app-utils/app-utils.scm
+++ b/src/app-utils/app-utils.scm
@@ -27,7 +27,6 @@
 ;; c-interface.scm
 (export gnc:error->string)
 (export gnc:gettext)
-(export gnc:_)
 (export _)
 (export-syntax N_)
 (export gnc:make-string-database)
@@ -276,7 +275,6 @@
 
 ;; gettext functions
 (define gnc:gettext gnc-gettext-helper)
-(define gnc:_ gnc:gettext)
 (define _ gnc:gettext)
 (define-syntax N_
   (syntax-rules ()