diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 1ec749cb0..62458d09b 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);
@@ -638,7 +638,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 */
@@ -1772,7 +1772,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 2df7916fc..6e2a953ad 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -6167,7 +6167,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