diff --git a/canopy/canopy.fs b/canopy/canopy.fs
index bc23ea77..0860bc3f 100644
--- a/canopy/canopy.fs
+++ b/canopy/canopy.fs
@@ -270,6 +270,8 @@ let private textOf (element : IWebElement) =
     match element.TagName  with
     | "input" ->
         element.GetAttribute("value")
+    | "textarea" ->
+        element.GetAttribute("value")
     | "select" ->
         let value = element.GetAttribute("value")
         let options = Seq.toList (element.FindElements(By.TagName("option")))
diff --git a/demotests/Program.fs b/demotests/Program.fs
index f65f998d..d4e905c5 100644
--- a/demotests/Program.fs
+++ b/demotests/Program.fs
@@ -5,7 +5,7 @@ open runner
 
 start firefox
 
-let page = "http://lefthandedgoat.github.com/canopy/demo/amir.html"
+let page = "http://skalinets.github.io/canopy/demo/amir.html"
 
 context "demo tests"
 before (fun _ -> url page
@@ -26,6 +26,11 @@ test(fun _ ->
     
     click ".optin input"
     click ".agree input"
+
+    "#address" == "The Big Screen"
+    "#city" == "Holywood"
+    "#state" == "CA"
+    "#zip" == "91601"
 )
 
 run ()