docnook.tcl: Add shebang

[oweals/cde.git] / cde / programs / dtdocbook / doc2sdl / docbook.tcl

diff --git a/cde/programs/dtdocbook/doc2sdl/docbook.tcl b/cde/programs/dtdocbook/doc2sdl/docbook.tcl
index 00e03b9a9079f83b4e8ffc83a9096383acf6f943..08b422827179555076d65c3473efcc6093ab9145 100755 (executable)
--- a/cde/programs/dtdocbook/doc2sdl/docbook.tcl
+++ b/cde/programs/dtdocbook/doc2sdl/docbook.tcl
@@ -1,3 +1,4 @@
+#!/usr/bin/tclsh
 # set the global variables
 set nextId        0  ;# gets incremented before each use
 
@@ -936,7 +937,7 @@ proc EndSimpleList {columns type parent} {
 # Horiz(ontal) list, don't put the BLOCK's id on the list's FORM
 # yet - we need to collect them all and lay them out afterward in
 # EndSimpleList; if we're an Inline list, don't create a BLOCK, we'll
-# add punctuation to seperate them in EndMember
+# add punctuation to separate them in EndMember
 proc StartMember {id type} {
     global nextId listStack firstString listMembers