--- a/PgcEdit_main.tcl
+++ b/PgcEdit_main.tcl
@@ -1456,9 +1456,9 @@
 		catch {file delete $::config(bindir)}
 	}
 } else {
-	set config(apppath) [file dirname $scriptname]
-	set ::config(bindir) [file join [file dirname $scriptname] "bin"]
-	set ::config(plugindir) [file join [file dirname $scriptname] "plugins"]
+	set config(apppath) {/usr/share/pgcedit}
+	set ::config(bindir) "$config(apppath)/bin"
+	set ::config(plugindir) "$config(apppath)/plugins"
 
 	if {! [file exists $::config(tempdir)]} {
 		set ::config(tempdir) "/tmp"
--- a/lib/main.tcl
+++ b/lib/main.tcl
@@ -4674,7 +4674,7 @@
 }
 
 proc display_doc {} {
-	set rootpath [file dirname $::config(bindir)]
+	set rootpath "@DOCDIR@"
 	set filename ""
 	if {$::tcl_platform(platform) == "windows"} {
 		if {[file exists [file join $rootpath "PgcEdit_Manual.chm"]]} {