diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 52bca1423..526bb8c0a 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -60,7 +60,7 @@ static void inp_parse_temper_trees(void);
 
 static wordlist *inp_savecurrents(struct line *deck, struct line *options, wordlist *wl, wordlist *controls);
 
-static void eval_agauss_bsource(struct line *deck, char *fcn);
+static void eval_agauss(struct line *deck, char *fcn);
 
 void line_free_x(struct line *deck, bool recurse);
 void create_circbyline(char *line);
@@ -669,7 +669,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
             static char *statfcn[] = { "agauss", "gauss", "aunif", "unif", "limit" };
             int ii;
             for (ii = 0; ii < 5; ii++)
-                eval_agauss_bsource(deck, statfcn[ii]);
+                eval_agauss(deck, statfcn[ii]);
 
             /* If user wants all currents saved (.options savecurrents), add .save 
             to wl_first with all terminal currents available on selected devices */
@@ -1935,7 +1935,7 @@ limit(double nominal_val, double abs_variation)
  */
 
 static void
-eval_agauss_bsource(struct line *deck, char *fcn)
+eval_agauss(struct line *deck, char *fcn)
 {
     struct line *card;
     double x, y, z, val;
diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index 72f8bdc8e..6535f2161 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -6181,7 +6181,7 @@ inp_fix_temper_in_param(struct line *deck)
 *
 * In a second step, after subcircuits have been expanded, all occurencies
 * of agauss in a b-line are replaced by their suitable value (function
-* eval_agauss_bsource() in inp.c).
+* eval_agauss() in inp.c).
 */
 
 static void