Index: nano.c
==================================================================
--- nano.c
+++ nano.c
@@ -110,11 +110,11 @@
 		tglfo_ret = Tcl_GetLongFromObj(interp, objv[2], &seed_index);
 		if (tglfo_ret != TCL_OK) {
 			return(tglfo_ret);
 		}
 
-		if (seed_index > 0xffffffffL) {
+		if (seed_index > 0xffffffffULL) {
 			Tcl_SetResult(interp, "Seed exceed maximum value", NULL);
 
 			return(TCL_ERROR);
 		}