--- a/FileApplicationNoteBook.st	Fri Dec 18 16:11:21 2015 +0100
+++ b/FileApplicationNoteBook.st	Mon Dec 21 17:10:34 2015 +0100
@@ -5477,7 +5477,7 @@
     sel := editView selectionAsString.
     sel isNil ifTrue:[^ self].
 
-    new := '<A HREF="xxx">',editView selectionAsString,'</A>'.
+    new := '<A HREF="http://www.exept.de">',editView selectionAsString,'</A>'.
     editView 
         undoableDo:[
             editView replaceSelectionBy:new keepCursor:false select:true