diff --git a/proc/edit_proc.cgi b/proc/edit_proc.cgi
index f43ceadef..eb340c039 100755
--- a/proc/edit_proc.cgi
+++ b/proc/edit_proc.cgi
@@ -44,17 +44,8 @@ if (&indexof($pinfo{nice}, @nice_range) < 0) {
 	print $pinfo{nice};
 	}
 else {
-	print "<select name=nice>\n";
-	for($i=0; $i<@nice_range; $i++) {
-		printf "<option value=%d %s>%d%s\n",
-			$nice_range[$i],
-			$pinfo{nice} == $nice_range[$i] ? "selected" : "",
-			$nice_range[$i],
-			$i==0 ? " ($text{'edit_prihigh'})" :
-			$i==@nice_range-1 ? " ($text{'edit_prilow'})" :
-			$nice_range[$i]==0 ? " ($text{'edit_pridef'})" : "";
-		}
-	print "</select> <input type=submit value='$text{'edit_change'}'>\n";
+	print &nice_selector("nice", $pinfo{nice});
+	print &ui_submit($text{'edit_change'});
 	}
 print "</td> </form></tr>\n";
 $i = 0;
diff --git a/proc/proc-lib.pl b/proc/proc-lib.pl
index e211df11e..798e19cdf 100644
--- a/proc/proc-lib.pl
+++ b/proc/proc-lib.pl
@@ -215,8 +215,8 @@ else {
 				}
 			}
 		elsif ($sel == 0) {
-			# nothing to read. maybe the process is done, and a subprocess
-			# is hanging things up
+			# nothing to read. maybe the process is done, and a
+			# subprocess is hanging things up
 			last if (!kill(0, $pid));
 			}
 		if ($_[7] && time() - $start > $_[7]) {
@@ -570,5 +570,18 @@ else {
 	}
 }
 
+# nice_selector(name, value)
+# Returns a menu for selecting a nice level
+sub nice_selector
+{
+local ($name, $value) = @_;
+local $l = scalar(@nice_range);
+return &ui_select($name, $value,
+	[ map { [ $_, $_.($_ == $nice_range[0] ? " ($text{'edit_prihigh'})" :
+			  $_ == 0 ? " ($text{'edit_pridef'})" :
+			  $_ == $nice_range[$l-1] ? " ($text{'edit_prilow'})" :
+						    "") ] } @nice_range ]);
+}
+
 1;