diff --git a/bin/mkdos b/bin/mkdos
index b8890f6..dd74728 100644
--- a/bin/mkdos
+++ b/bin/mkdos
@@ -171,13 +171,13 @@ emul.exe : $(OFILES)
 ldex    : $(OFILES) mkvdate
 	$(RM) vdate.c
 	mkvdate > vdate.c
-	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the speciffic files for this target */
+	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the specific files for this target */
 	$(CC) $(OFILES) -o $@ $(LDFLAGS)
 
 lde     : $(OFILES) mkvdate
 	$(RM) vdate.c
 	mkvdate > vdate.c
-	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the speciffic files for this target */
+	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the specific files for this target */
 	$(CC) $(LDFLAGS) $(OFILES) -o $@
 
  ##################
@@ -188,7 +188,7 @@ main.o  :       lispemul.h address.h lsptypes.h adr68k.h stack.h lspglob.h lispm
 
 
  ######################################
- ### Architecture speciffic targets ###
+ ### Architecture specific targets  ###
  ###                                ###
  ### replaces the cruft in the      ###
  ### makefile-<OS>.<ARCH>           ###
diff --git a/bin/mkfile b/bin/mkfile
index 51a469e..7075332 100644
--- a/bin/mkfile
+++ b/bin/mkfile
@@ -162,7 +162,7 @@ dosmkfil : mkfile
 lde     : $(OFILES) mkvdate
 	$(RM) vdate.c
 	mkvdate > vdate.c
-	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the speciffic files for this target */
+	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the specific files for this target */
 	$(CC) $(LDFLAGS) $(OFILES) -o $@
 
  ##################
@@ -175,7 +175,7 @@ OBJECTDIR/main.o  :   INCDIR/lispemul.h INCDIR/address.h INCDIR/lsptypes.h INCDI
 
 
  ######################################
- ### Architecture speciffic targets ###
+ ### Architecture specific targets  ###
  ###                                ###
  ### replaces the cruft in the      ###
  ### makefile-<OS>.<ARCH>           ###
diff --git a/bin/mkfile.c b/bin/mkfile.c
index 51a469e..7075332 100644
--- a/bin/mkfile.c
+++ b/bin/mkfile.c
@@ -162,7 +162,7 @@ dosmkfil : mkfile
 lde     : $(OFILES) mkvdate
 	$(RM) vdate.c
 	mkvdate > vdate.c
-	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the speciffic files for this target */
+	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the specific files for this target */
 	$(CC) $(LDFLAGS) $(OFILES) -o $@
 
  ##################
@@ -175,7 +175,7 @@ OBJECTDIR/main.o  :   INCDIR/lispemul.h INCDIR/address.h INCDIR/lsptypes.h INCDI
 
 
  ######################################
- ### Architecture speciffic targets ###
+ ### Architecture specific targets  ###
  ###                                ###
  ### replaces the cruft in the      ###
  ### makefile-<OS>.<ARCH>           ###
diff --git a/bin/mkfile.i b/bin/mkfile.i
index b95e03f..d5b99a2 100644
--- a/bin/mkfile.i
+++ b/bin/mkfile.i
@@ -60,7 +60,7 @@ dosmkfil : mkfile
 lde     : $(OFILES) mkvdate
 	$(RM) vdate.c
 	mkvdate > vdate.c
-	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the speciffic files for this target */
+	- cd ARCH;$(MAKE) $(MFLAGS) all         #/* Make the specific files for this target */
 	$(CC) $(LDFLAGS) $(OFILES) -o $@
 
    
diff --git a/src/foreign.c b/src/foreign.c
index df5fcda..8460cda 100644
--- a/src/foreign.c
+++ b/src/foreign.c
@@ -92,7 +92,7 @@ typedef int (*PFP)();   /* Pointer to Function returning a Pointer */
 /*		1 is the result type					*/
 /*		2 is the error return flag: 0=no errors. 1 if there's	*/
 /*			some problem					*/
-/*		3 is the lenght of the arglist passed			*/
+/*		3 is the length of the arglist passed			*/
 /*		4 is the pointer to the smasher place or 0 if return	*/
 /*		5-n the arglist types					*/
 /*	args[1-<number-of-args+1>]: arguments				*/
@@ -355,12 +355,12 @@ LispPTR call_c_fn(LispPTR *args) {
 /*		1 is the result type					*/
 /*		2 is the error return flag: 0=no errors. 1 if there's	*/
 /*			some problem					*/
-/*		3 is the lenght of the arglist passed			*/
+/*		3 is the length of the arglist passed			*/
 /*		4-n the arglist types					*/
 /*	args[1]: Smashing place						*/
 /*	args[2 - <number-of-args+1>]: arguments				*/
 /*									*/
-/*	This is an aboration. It is only implemented on the speciffic	*/
+/*	This is an aberration. It is only implemented on the specific	*/
 /*	request of an influential customer. The things we do for money!	*/
 /*									*/
 /*	The result of this functioncall will be smashed into what	*/
diff --git a/src/fp.c b/src/fp.c
index 3d3f70b..4b77caa 100644
--- a/src/fp.c
+++ b/src/fp.c
@@ -67,7 +67,7 @@ LispPTR N_OP_fplus2(LispPTR parg1, LispPTR parg2) {
 /*									*/
 /*		      N _ O P _ f d i f f e r e n c e			*/
 /*									*/
-/*	2-arugment floating-point subtraction.				*/
+/*	2-argument floating-point subtraction.				*/
 /*									*/
 /************************************************************************/
 
diff --git a/src/fvar.c b/src/fvar.c
index d6d752e..c54dbe2 100644
--- a/src/fvar.c
+++ b/src/fvar.c
@@ -305,7 +305,7 @@ void nfvlookup(struct frameex1 *apframe1, register DLword *achain,
         1. save TopOfStack to evaluation stack.
         2. set address of searching FVAR slot to chain.
         3. call lookfor. (It sets some content to FVAR slot)
-        4. get some address by caluculation of content of FVAR slot.
+        4. get some address by calculation of content of FVAR slot.
         5. set the address to TopOfStack.
 **************************************************************************/
 LispPTR N_OP_fvarn(register int n)
@@ -333,7 +333,7 @@ N_OP_stkscan
         entry	STKSCAN		OPCODE[057]
 
         <<Enter>>
-        TopOfStack:	Low word - Atom index number of variable to be saned.
+        TopOfStack:	Low word - Atom index number of variable to be scanned.
         <<Exit>>
         TopOfStack:	Address of found value.
 
diff --git a/src/intcall.c b/src/intcall.c
index 98418ff..ed0d555 100644
--- a/src/intcall.c
+++ b/src/intcall.c
@@ -54,9 +54,9 @@ void cause_interruptcall(register unsigned int atom_index)
 
   /* This used to be >=, but I think that was a change from earlier,
      when it was originally >.  I changed it back on 2/2/98 to see
-     if that fixes stack overflow toruble.  --JDS */
+     if that fixes stack overflow trouble.  --JDS */
   if ((UNSIGNED)(CurrentStackPTR + tmp_fn->stkmin + STK_SAFE) > (UNSIGNED)EndSTKP) {
-    /*printf("Intrrupt:$$ STKOVER when ");
+    /*printf("Interrupt:$$ STKOVER when ");
     print(atom_index);
     printf(" was called  *****\n");*/
     DOSTACKOVERFLOW(0, -1);
diff --git a/src/keyevent.c b/src/keyevent.c
index 4d46cdc..3466793 100644
--- a/src/keyevent.c
+++ b/src/keyevent.c
@@ -319,7 +319,7 @@ getmore:
       while (input_readevent(LispWindowFd, &event) >= 0) {
         /*if(!kb_event( &event )) {goto getmore;};*/
         if ((KBDEventFlg += kb_event(&event)) > 0) {
-          /* immidiately request for IRQ check */
+          /* immediately request for IRQ check */
           Irq_Stk_End = Irq_Stk_Check = 0;
         }
       }
@@ -639,8 +639,8 @@ void taking_mouse_down() {
 }
 #endif /* COLOR */
 
-/* LastCursorClippingX must be set brfore calling
- To avoid duplicate caluculation */
+/* LastCursorClippingX must be set before calling
+ To avoid duplicate calculation */
 #ifndef COLOR
 /* FOR MONO ONLY */
 void copy_cursor(int newx, int newy)
diff --git a/src/llstk.c b/src/llstk.c
index 5f35c88..dfdb2e2 100644
--- a/src/llstk.c
+++ b/src/llstk.c
@@ -241,10 +241,10 @@ int do_stackoverflow(int incallp) {
 
   /* Call MOVEFRAME directly */
   if ((newfx = (DLword)moveframe(CURRENTFX)) == 0xFFFF) {
-    /* To make immidiately call HARDRESET */
+    /* To make immediately call HARDRESET */
     Irq_Stk_Check = 0;
     Irq_Stk_End = 0;
-    return (1); /* Whole space exausted */
+    return (1); /* Whole space exhausted */
   }
 
   /* Return from MOVEFRAME directly */
@@ -514,7 +514,7 @@ void flip_cursorbar(int n) {
 /**************************************************************/
 void blt(register DLword *dest68k, register DLword *source68k, int nw) {
   /******* OLD def ,
-   Due to C compiler's bug, we can't use pre-decriment for register val
+   Due to C compiler's bug, we can't use pre-decrement for register val
     source68k += nw;
     dest68k += nw;
     while(nw)
diff --git a/src/mnwevent.c b/src/mnwevent.c
index e1f6110..5c541ef 100644
--- a/src/mnwevent.c
+++ b/src/mnwevent.c
@@ -146,7 +146,7 @@ void HandleMotion(Widget widget, WindowInterface wif, XMotionEvent *xevent, Bool
     /* printf("mouse x %d, y %d\n", xevent->x_root, xevent->y_root); */
     DoRing();
     if ((KBDEventFlg) > 0) {
-      /* immidiately request for IRQ check */
+      /* immediately request for IRQ check */
       Irq_Stk_End = Irq_Stk_Check = 0;
     }
   }
@@ -441,7 +441,7 @@ void getMNWsignaldata(int fd)
           (*((DLword *)EmMouseY68K)) = *EmCursorY68K = report.xmotion.y_root;
           DoRing();
           if ((KBDEventFlg) > 0) {
-            /* immidiately request for IRQ check */
+            /* immediately request for IRQ check */
             Irq_Stk_End = Irq_Stk_Check = 0;
           }
         } break;
diff --git a/src/return.c b/src/return.c
index 870cfa4..3b114a4 100644
--- a/src/return.c
+++ b/src/return.c
@@ -97,7 +97,7 @@ void contextsw(register DLword fxnum, register DLword bytenum, register DLword f
 #endif
 
   if (!(fxnum == SubovFXP)) {
-    /* interrupt disable during execting [special] function
+    /* interrupt disable during executing [special] function
       invoked by contextsw(\KEYHANDLER,\RESETSTACK,FAULT)
      */
   }
diff --git a/src/timer.c b/src/timer.c
index ccbef8f..d1bdd5a 100644
--- a/src/timer.c
+++ b/src/timer.c
@@ -781,7 +781,7 @@ and do a 'v' before trying anything else.";
 /*                                                                      */
 /*                     i n t _ p a n i c _ i n i t                      */
 /*                                                                      */
-/*  A catch for all the deadly interupts (but KILL, of course)          */
+/*  A catch for all the deadly interrupts (but KILL, of course)          */
 /*  Dumps you into uraid; you probably can't get back from it,          */
 /*     but there is hope that you will be able to poke around with      */
 /*     uraid and get a clue about why you're dying.                     */