diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 97bc24e9f..fdd47fe8d 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -58,7 +58,7 @@ static void dotifeval(struct line *deck);
 
 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);
@@ -677,7 +677,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 */
@@ -1917,7 +1917,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 6adc1a3ab..9c0a1a18b 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -5962,7 +5962,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