Index: boost/math/distributions/laplace.hpp
===================================================================
--- boost/math/distributions/laplace.hpp	(revision 75559)
+++ boost/math/distributions/laplace.hpp	(working copy)
@@ -213,10 +213,10 @@
    }
 
    // Cdf interval value
-   if (-x < location)
-      result = exp( (-x-location)/scale )/2;
+   if (-x < -location)
+      result = exp( (-x+location)/scale )/2;
    else
-      result = 1 - exp( (location+x)/scale )/2;
+      result = 1 - exp( (-location+x)/scale )/2;
 
    return result;
 } // cdf complement