Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -5,11 +5,11 @@
 # 
 #  This program is distributed WITHOUT ANY WARRANTY; without even the
 #  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 #  PURPOSE.
 #
-# Following needed on bluehost
+# Following needed on bluehost (maybe on all 64bit?)
 #
 # CSC_OPTIONS='-C "-fPIC"' make
 #
 include install.cfg
 

Index: html-filter.scm
==================================================================
--- html-filter.scm
+++ html-filter.scm
@@ -166,11 +166,12 @@
 		  result
 		  (loop (car tail)(cdr tail) result))
 	      (let* ((key (substring head 0 2))
 		     (rem (substring head 2 (string-length head)))
 		     (num (string->number key 16))
-		     (ch  (if (exact? num)
+		     (ch  (if (and (number? num)
+                                   (exact? num))
 			      (integer->char num)
 			      #f)) ;; this is an error. I will probably regret this some day
 		     (chstr  (if ch (make-string 1 ch) ""))
 		     (newres (if ch
 				 (string-append result chstr rem)

Index: setup.scm
==================================================================
--- setup.scm
+++ setup.scm
@@ -113,13 +113,17 @@
 ;;
 (define (s:shared-get key)
   (hash-table-ref/default (sdat-get-shared-hash s:session) key #f))
 
 ;; http://foo.bar.com/pagename/p1/p2 => '("p1" "p2")
-;;
+;;  #### DEPRECATED ####
 (define (s:get-page-params)
-  (sdat-get-page-params s:session))
+  (sdat-get-path-params s:session))
+
+(define (s:get-path-params)
+  (sdat-get-path-params s:session))
+	
 
 (define (s:db)
   (sdat-get-conn s:session))
 
 (define (s:never-called-page? page)

Index: stml.scm
==================================================================
--- stml.scm
+++ stml.scm
@@ -58,10 +58,11 @@
 (define (s:a      . args) (s:common-tag "A"      args))
 (define (s:b      . args) (s:common-tag "B"      args))
 (define (s:u      . args) (s:common-tag "U"      args))
 (define (s:big    . args) (s:common-tag "BIG"    args))
 (define (s:body   . args) (s:common-tag "BODY"   args))
+(define (s:button . args) (s:common-tag "BUTTON" args))
 (define (s:center . args) (s:common-tag "CENTER" args))
 (define (s:code   . args) (s:common-tag "CODE"   args))
 (define (s:div    . args) (s:common-tag "DIV"    args))
 (define (s:h1     . args) (s:common-tag "H1"     args))
 (define (s:h2     . args) (s:common-tag "H2"     args))
@@ -77,10 +78,11 @@
 (define (s:p      . args) (s:common-tag "P"      args))
 (define (s:strong . args) (s:common-tag "STRONG" args))
 (define (s:table  . args) (s:common-tag "TABLE"  args))
 (define (s:tbody  . args) (s:common-tag "TBODY"  args))
 (define (s:thead  . args) (s:common-tag "THEAD"  args))
+(define (s:th     . args) (s:common-tag "TH"     args))
 (define (s:td     . args) (s:common-tag "TD"     args))
 (define (s:title  . args) (s:common-tag "TITLE"  args))
 (define (s:tr     . args) (s:common-tag "TR"     args))
 (define (s:small  . args) (s:common-tag "SMALL"  args))
 (define (s:quote  . args) (s:common-tag "QUOTE"  args))

Index: stmlrun.scm
==================================================================
--- stmlrun.scm
+++ stmlrun.scm
@@ -12,7 +12,8 @@
 ;; (require-extension syntax-case)
 ;; (declare (run-time-macros))
 
 ;; (include "stmlcommon.scm")
 (require-library stml)
+
 
 (stml:main #f)